home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / dme / dmd201.lha / DMD / REXX / DownLevel.dme < prev    next >
Text File  |  1992-03-27  |  808b  |  31 lines
  1. /* DownLevel.dme © 1991 Fergus Duniho */
  2. /* Makes an outline section into the first sub-section of the outline */
  3. /* section above it */
  4.  
  5. 'first while !r up up while !r up if !t down'
  6. LINE = Extract()
  7. POSITION = Verify(LINE,'.)',m)
  8. LEVEL = (POSITION - 9)%4 + 1
  9. HEADING = Word(LINE,1)
  10. ALPHANUM = Left(HEADING,Length(HEADING)-1)
  11.  
  12. Select
  13.     When LEVEL = 1 Then ALPHANUM = 'A.'
  14.     When LEVEL = 2 Then ALPHANUM = '1.'
  15.     When LEVEL = 3 Then ALPHANUM = 'a.'
  16.     When LEVEL = 4 Then ALPHANUM = 'i.'
  17.     When LEVEL = 5 Then ALPHANUM = '1)'
  18.     When LEVEL = 6 Then ALPHANUM = 'a)'
  19.     When LEVEL = 7 Then ALPHANUM = 'i)'
  20.     Otherwise NOP
  21. End
  22.  
  23. 'while !r down'
  24. wright
  25. LINE = "'" Copies(' ',POSITION-(Length(ALPHANUM)-2)) ALPHANUM || ' ' Strip(Delword(Strip(Extract()),1,1))
  26. first
  27. remeol
  28. LINE
  29. C = 'col' POSITION+4
  30. C
  31.